home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / actress.dxr / 00136.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  3.0 KB  |  126 lines
  1. on placeqt
  2.   global status, selectedvideonum, qtstatus
  3.   if status <> EMPTY then
  4.     exit
  5.   end if
  6.   set qtstatus to "QTon"
  7.   puppetSprite(15, 0)
  8.   updateStage()
  9.   zoomBox(clickOn(), 15, 1)
  10.   set selectedvideonum to "QT" & the name of cast the castNum of sprite clickOn()
  11.   puppetSprite(15, 1)
  12.   set the type of sprite 15 to 16
  13.   set the ink of sprite 15 to 0
  14.   set the foreColor of sprite 15 to 255
  15.   set the backColor of sprite 15 to 0
  16.   set the castNum of sprite 15 to the number of member selectedvideonum
  17.   set the locH of sprite 15 to 418
  18.   set the locV of sprite 15 to 357
  19.   updateStage()
  20.   onairdisp(0)
  21. end
  22.  
  23. on onairdisp which
  24.   global selectedvideonum, onairnum
  25.   puppetSprite(12, 1)
  26.   set the type of sprite 12 to 1
  27.   set the ink of sprite 12 to 0
  28.   set the foreColor of sprite 12 to 255
  29.   set the backColor of sprite 12 to 0
  30.   set the castNum of sprite 12 to the number of member "onAir"
  31.   set onairnum to value(item 2 of selectedvideonum)
  32.   if onairnum > 3 then
  33.     set n to onairnum - 3
  34.   else
  35.     set n to onairnum
  36.   end if
  37.   if onairnum = 0 then
  38.     exit
  39.   end if
  40.   if which = 0 then
  41.     set the locH of sprite 12 to 283 + ((n - 1) * 120)
  42.     set the locV of sprite 12 to 235
  43.     updateStage()
  44.     exit
  45.   else
  46.     if which = 1 then
  47.       if onairnum >= 4 then
  48.         puppetSprite(12, 0)
  49.         updateStage()
  50.         exit
  51.       else
  52.         set the locH of sprite 12 to 283 + ((n - 1) * 120)
  53.         set the locV of sprite 12 to 235
  54.         updateStage()
  55.         exit
  56.       end if
  57.     else
  58.       if which = 2 then
  59.         if onairnum <= 3 then
  60.           puppetSprite(12, 0)
  61.           updateStage()
  62.           exit
  63.         else
  64.           set the locH of sprite 12 to 283 + ((n - 1) * 120)
  65.           set the locV of sprite 12 to 235
  66.           updateStage()
  67.           exit
  68.         end if
  69.       end if
  70.     end if
  71.   end if
  72. end
  73.  
  74. on closeqt
  75.   global selectedvideonum, qtstatus
  76.   set qtstatus to "QToff"
  77.   if selectedvideonum = 0 then
  78.     exit
  79.   end if
  80.   puppetSprite(15, 1)
  81.   updateStage()
  82.   set the type of sprite 15 to 1
  83.   set the ink of sprite 15 to 0
  84.   set the foreColor of sprite 15 to 255
  85.   set the backColor of sprite 15 to 0
  86.   set the castNum of sprite 15 to the number of member "QTmask"
  87.   set the locH of sprite 15 to 418
  88.   set the locV of sprite 15 to 357
  89.   updateStage()
  90.   puppetSprite(12, 0)
  91.   updateStage()
  92. end
  93.  
  94. on stopqt
  95.   global selectedvideonum, videotime, qtstatus
  96.   if (selectedvideonum = 0) or (qtstatus = "QToff") then
  97.     exit
  98.   end if
  99.   puppetSprite(15, 1)
  100.   updateStage()
  101.   set the movieRate of sprite 15 to 0
  102.   set videotime to the movieTime of sprite 15
  103.   updateStage()
  104.   set the type of sprite 15 to 0
  105.   updateStage()
  106. end
  107.  
  108. on playqt
  109.   global selectedvideonum, videotime, qtstatus
  110.   if (selectedvideonum = 0) or (qtstatus = "QToff") then
  111.     exit
  112.   end if
  113.   set n to char 3 to 4 of item 1 of selectedvideonum
  114.   go(n)
  115.   recoveryqt()
  116. end
  117.  
  118. on recoveryqt
  119.   global selectedvideonum, videotime
  120.   puppetSprite(15, 1)
  121.   set the type of sprite 15 to 16
  122.   updateStage()
  123.   set the movieTime of sprite 15 to videotime
  124.   updateStage()
  125. end
  126.